home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 April / 64er_Magazin_85-04_1985_Markt__Technik_de.d64 / x.y-demo 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  990 b   |  26 lines
  1. 10 ein=49241 :rem  grafik ein
  2. 20 aus=49252 :rem  grafik aus
  3. 30 neu=49152 :rem  loeschen + farbe
  4. 40 gsv=49271 :rem  save
  5. 50 gld=49333 :rem  load
  6. 60 rot=50316 :rem  rotationskoerper
  7. 70 xy =50672 :rem  x.y-grafik
  8. 80 :
  9. 100 poke53280,6:poke53281,5:sysneu,5
  10. 110 deffnr(egal)=sin(x)*cos(y)
  11. 120 print"[147][144]+++++++  f(x,y)-netzgrafik-demo  +++++++":uu=(NULL)/180
  12. 130 u=18:input"drehwinkel (-45 bis 90) .. ";u:ifu<-45oru>90then130
  13. 140 lx=190:ly=190:my=99:mx=159:sn=sin(uu*u):cs=cos(uu*u)
  14. 150 v=45:input"aufsichtswinkel (0 bis 90) ";v:ifv>90orv<0then150
  15. 160 sm=sin(v*uu)
  16. 165 xx%=mx-lx/sqr(2)*sin((45-u)*uu)+.5:yy%=my+ly/sqr(2)*cos((45-u)*uu)*sm+.5
  17. 170 nn%=20:input"anzahl der x-linien ...... ";nn%:ifnn%<3ornn%>60then170
  18. 175 kk%=20:input"anzahl der y-linien ...... ";kk%:ifkk%<3ornn%>60then175
  19. 180 aa%=ly*cs/kk%+.5:bb%=-lx*sn/nn%+.5:cc%=lx*cs/nn%*sm+.5
  20. 190 ee%=-ly*sn/kk%*sm+.5:dd=cos(v*uu)*30
  21. 220 x=-6.3:u=3.2:input"grenzen (x0,x1) .......... ";x,u
  22. 225 yy=-3.2:v=6.3:input"grenzen (y0,y1) .......... ";yy,v
  23. 230 ff=(u-x)/nn%:ll=(v-yy)/kk%
  24. 380 sysxy
  25. 390 print"[147]":wait198,1:poke198,0:sysaus
  26.